home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Visual Basic Source Code
/
Visual Basic Source Code.iso
/
vbsource
/
focusprb
/
form2.frm
< prev
next >
Wrap
Text File
|
1995-05-07
|
1KB
|
55 lines
VERSION 2.00
Begin Form Form2
BorderStyle = 0 'None
Caption = "Validate"
ClientHeight = 1800
ClientLeft = 3645
ClientTop = 6330
ClientWidth = 2775
Height = 2205
Left = 3585
LinkTopic = "Form2"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 1800
ScaleWidth = 2775
Top = 5985
Width = 2895
Begin CommandButton Command2
Caption = "No"
Height = 372
Left = 1560
TabIndex = 1
Top = 1200
Width = 852
End
Begin CommandButton Command1
Caption = "Yes"
Default = -1 'True
Height = 372
Left = 360
TabIndex = 0
Top = 1200
Width = 852
End
Begin Label Label1
Caption = "Label1"
Height = 732
Left = 240
TabIndex = 2
Top = 240
Width = 2292
End
End
Sub Command1_Click ()
Unload Form2
End Sub
Sub Form_LostFocus ()
If (Form2.tag = "") Then
Form2.SetFocus
End If
End Sub